home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_05_1985_Transactor_Publishing.d64 / file compare.c64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  60 lines
  1. 0 rem the transactor volume 5 issue 06         page 71
  2. 10 rem  save"@0:filcomp c64.dat",8
  3. 100 rem ** rte/84 - data to create 'file compare c64' on diskette as prg
  4. 110 input"drive #, new program name ";dr$,fl$
  5. 120 open 15,8,15: open 5,8,5,(dr$)+":"+fl$+",p,w"
  6. 130 input#15,e,e$,b,c: if e then close 15: print e,e$,b,c: stop
  7. 140 for j= 2049 to 2433 : read x: print#5,chr$(x);: ch=ch+x: next: close5
  8. 150 if ch<> 38861  then print"checksum error": end
  9. 160 print"** program complete **": end
  10. 170 :
  11. 180 data   1,   8,  37,   8,  10,   0, 158,  32
  12. 190 data  50,  48,  56,  55,  32,  58,  32,  42
  13. 200 data  42,  32,  70,  73,  76,  69,  32,  67
  14. 210 data  79,  77,  80,  65,  82,  69,  32,  67
  15. 220 data  54,  52,  32,  42,  42,   0,   0,   0
  16. 230 data 160,   9, 169,  71,  32,  30, 171,  32
  17. 240 data 207, 255,  56, 233,  48, 133,  90, 201
  18. 250 data   3,  48, 244, 233,   5, 176, 240, 169
  19. 260 data  13,  32, 210, 255, 169,   0, 133, 183
  20. 270 data 169,   1, 133, 184, 165,  90, 133, 186
  21. 280 data 169, 255, 133, 185,  32,  74, 243, 169
  22. 290 data   0, 133,  87, 133,  88, 162,   5, 160
  23. 300 data   9, 169,  97,  32,  11,   9, 162,   6
  24. 310 data 160,   9, 169,  97,  32,  11,   9, 165
  25. 320 data 145, 201, 127, 208,   3,  76, 246,   8
  26. 330 data 162,   5,  32, 198, 255,  32, 207, 255
  27. 340 data 133,  89,  32, 204, 255, 162,   6,  32
  28. 350 data 198, 255,  32, 207, 255,  72, 165, 144
  29. 360 data 133,  91,  32, 204, 255, 104, 197,  89
  30. 370 data 240,  78,  72, 162,   1,  32, 201, 255
  31. 380 data 169,  36,  32, 210, 255, 165,  88,  32
  32. 390 data  49,   9, 165,  88,  32,  61,   9, 165
  33. 400 data  87,  32,  49,   9, 165,  87,  32,  61
  34. 410 data   9, 169,  32,  32, 210, 255, 169,  36
  35. 420 data  32, 210, 255, 165,  89,  32,  49,   9
  36. 430 data 165,  89,  32,  61,   9, 169,  32,  32
  37. 440 data 210, 255, 169,  36,  32, 210, 255, 104
  38. 450 data  72,  32,  49,   9, 104,  32,  61,   9
  39. 460 data 169,  13,  32, 210, 255,  32, 204, 255
  40. 470 data 230,  87, 165,  87, 208,   2, 230,  88
  41. 480 data 165,  91, 208,   3,  76, 110,   8, 169
  42. 490 data   1,  32, 145, 242, 169,   5,  32, 145
  43. 500 data 242, 169,   6,  32, 145, 242,  32, 204
  44. 510 data 255,  76, 116, 164, 134, 184, 134, 185
  45. 520 data  32,  30, 171,  32,  96, 165, 162,   0
  46. 530 data 189,   0,   2, 240,   3, 232, 208, 248
  47. 540 data 134, 183, 169,   0, 133, 187, 169,   2
  48. 550 data 133, 188, 169,   8, 133, 186,  32,  74
  49. 560 data 243,  96,  74,  74,  74,  74, 170, 189
  50. 570 data 112,   9,  32, 210, 255,  96,  41,  15
  51. 580 data 170, 189, 112,   9,  32, 210, 255,  96
  52. 590 data  51,  41,  32,  83,  67,  82,  69,  69
  53. 600 data  78,  32,  79,  82,  32,  52,  41,  32
  54. 610 data  80,  82,  73,  78,  84,  69,  82,  32
  55. 620 data  58,   0,  68,  82,  35,  58,  70,  73
  56. 630 data  76,  69,  78,  65,  77,  69,  32,  62
  57. 640 data   0,  48,  49,  50,  51,  52,  53,  54
  58. 650 data  55,  56,  57,  65,  66,  67,  68,  69
  59. 660 data  70
  60.